home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 91xx / 9107a.d64 / main v1.1 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  4KB  |  147 lines
  1. 1 POKE53280,1:POKE53281,0
  2. 5 NU= 0
  3. 6 FA = 1000.82836
  4. 10 REM ****************************************
  5. 20 REM * MAIN V1.1  (C) BY MARKT UND TECHNIK  *
  6. 30 REM * 1991                                 *
  7. 40 REM * WRITTEN BY HGRB                      *
  8. 50 REM * 1991                                 *
  9. 60 REM ****************************************
  10. 70 LW=8: REM LAUFWERKSNUMMER
  11. 80 IFA=0THENA=1:LOAD"MESSZYKLUS",LW,1
  12. 85 PRINT"[147]MOECHTEN SIE DEN A/D-WANDLER EICHEN?"
  13. 86 PRINT"(J/N)"
  14. 87 GETA$:IFA$=""THEN87
  15. 88 IFA$="J"THEN1000
  16. 89 IFA$<>"N"THEN86
  17. 90 Z%(1)=2:Z%(2)=2:Z%(3)=2:Z%(4)=10:Z%(5)=10:Z%(6)=10
  18. 100 S%(1)=1:S%(2)=15:S%(3)=29:S%(4)=1:S%(5)=15:S%(6)=29
  19. 110 L$="          "
  20. 120 PRINT"[147]            64'ER MESSLABOR             "
  21. 130 DIMMA$(6,4)
  22. 140 OPEN1,LW,15,"I"
  23. 150 OPEN2,LW,2,"KONFIGMES,S,R"
  24. 160 INPUT#2,N :REM ANZAHL INSTALLIERTER MODULE
  25. 170 FOR M = 1 TO N :REM MODULDATEN EINLESEN
  26. 180 :  INPUT#2,G$(M) :REM ZU MESSENDE GROESSE
  27. 190 :  INPUT#2,E$(M) :REM EINHEIT DES MESSWERTS
  28. 200 :  INPUT#2,B(M) :REM BILDSCHIRMPOSITION
  29. 210 :  INPUT#2,A(M)  :REM ARCHIVIERUNG?
  30. 220 :  INPUT#2,N$(M) :REM ARCHIVIERUNGSDATEI
  31. 230 NEXT M :REM NAECHSTES MODUL
  32. 231 CLOSE2
  33. 232 CLOSE1
  34. 240 REM *************************************
  35. 250 REM * START DER MESSROUTINEN            *
  36. 260 REM *************************************
  37. 270 REM INITIALISIERUNG
  38. 280 REM GOTO 60000 : REM HIER KANN FUNKUHRROUTINE EINGEBAUT WERDEN
  39. 290 FOR I = 1 TO 6
  40. 300 :  MA$(I,0) = "MODUL "+STR$(I)+"  "
  41. 310 :  MA$(I,1) = "000000[146]"
  42. 320 :  MA$(I,2) = "UNIT[146]"
  43. 330 :  MA$(I,3) = "[158]          [146]"
  44. 340 :  M  = I
  45. 345 :  BS = I
  46. 350 :  GOSUB 570: REM MASKE AUFBAUEN
  47. 360 NEXT I
  48. 370 PRINT"";
  49. 380 FORA=1TO8
  50. 390 :  PRINT"[165]"SPC(11)"[167]"SPC(13)"[167]"SPC(12)"[167]";
  51. 400 NEXT A
  52. 410 PRINT"[207][183][183][183][183][183][183][183][183][183][183][183][208][183][183][183][183][183][183][183][183][183][183][183][183][183][208][183][183][183][183][183][183][183][183][183][183][183][183][208]";
  53. 420 FORA=1TO8
  54. 430 :  PRINT"[165]"SPC(11)"[167]"SPC(13)"[167]"SPC(12)"[167]";
  55. 440 NEXT A
  56. 450 PRINT"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]";
  57. 460 FORM=1TON
  58. 470 :  BS=M
  59. 480 :  ON M GOSUB 10000,10000,10000,10000,10000,10000
  60. 490 MA$(M,0)=""+G$(M)+LEFT$(L$,10-LEN(G$(M)))
  61. 500 MA$(M,2)=""+E$(M)+LEFT$(L$,4-LEN(E$(M)))
  62. 510 :  MA$(M,1)=""+RIGHT$(STR$(AN),7)+LEFT$(L$,6-LEN(STR$(AN)))
  63. 520 :  BS =B(M)
  64. 530 :  GOSUB570
  65. 540 NEXT M
  66. 550 GOTO460
  67. 560 END
  68. 570 REM ************************************
  69. 580 REM *BILDSCHIRMAUSGABE ANZEIGEFELD     *
  70. 590 REM *UEBERGABEWERT: NUMMER DER         *
  71. 600 REM *AUSGABEPOSITION IN BS             *
  72. 610 REM ************************************
  73. 620 PRINT"";: REM AUF HOMEPOSITION
  74. 630 FOR A = 0 TO Z%(BS) : REM ZEILEN-
  75. 640 :  PRINT"";
  76. 650 NEXT A
  77. 660 FOR A = 1 TO S%(BS) : REM UND SPALTEN-
  78. 670 :  PRINT""; :REM POSITION
  79. 680 NEXT A : REM EINSTELLEN
  80. 690 PRINT ""MA$(M,0); : REM AUSGABE MESSGROESSE
  81. 700 PRINT"[157][157][157][157][157][157][157][157][157][157]";MA$(M,1);MA$(M,2); : REM AUSGABE WERT UND EINHEIT
  82. 710 PRINT"[157][157][157][157][157][157][157][157][157][157]";MA$(M,3)
  83. 720 RETURN
  84. 1000 PRINT"[147]EICHUNG DES ANALOG/DIGITALWANDLERS"
  85. 1010 PRINT"SCHLIESSEN SIE DEN EINGANG DES"
  86. 1020 PRINT"A/D-WANDLERS MIT EINER DRAHTBRUECKE"
  87. 1030 PRINT"KURZ (ENTSPRICHT 0 VOLT).
  88. 1040 [153]"DRUECKEN SIE DANN EINE TASTE!"
  89. 1050 [161]A$
  90. 1060 [139]A$[178]""[167]1050
  91. 1070 BS[178]1
  92. 1080 [129]A[178]1[164]10
  93. 1090 :  [141]5000
  94. 1100 :  N[178]N[170]FZ
  95. 1110 [130]A
  96. 1120 N[178]N[173]10
  97. 1130 [153]"EICHWERT FUER 0VOLT IST ";N
  98. 1140 [153]"BITTE TRAGENSIE DIESEN WERT IM"
  99. 1150 [153]"PROGRAMM EIN MIT:"
  100. 1160 [153]"5 N = <EICHWERT>"
  101. 1170 [153]"VERBINDEN SIE NUN DEN EINGANG"
  102. 1180 [153]"DES A/D-WANDLERS MIT 5 VOLT."
  103. 1190 [153]"DRUECKEN SIE DANN EINE TASTE."
  104. 1200 [161]A$
  105. 1210 [139]A$[178]""[167]1200
  106. 1220 BS[178]1
  107. 1230 [141]5000
  108. 1240 [129]A[178]1[164]10
  109. 1250 :  [141]5000
  110. 1260 :  FA[178]FA[170]FZ
  111. 1270 [130]A
  112. 1280 FA[178]FA[173]10
  113. 1290 [153]"DIE STEIGUNG BETRAEGT ";FA[173]5
  114. 1300 [153]"TRAGEN SIE DIESEN WERT IM"
  115. 1310 [153]"PROGRAMM EIN MIT:"
  116. 1320 [153]"6 FA = <STEIGUNG>"
  117. 1330 [153]"DANACH MUSS DAS PROGRAMM UNBEDINGT"
  118. 1340 [153]"UNTER DEM NAMEN MAIN V1.2E"
  119. 1350 [153]"AUF DISK GESPEICHERT WERDEN!"
  120. 1360 [128]
  121. 5000 [143] ************************************
  122. 5010 [143] * ANALOGMESSROUTINE                *
  123. 5020 [143] * UEBERGABEWERT: ANALOGMODUL-      *
  124. 5030 [143] * NUMMER IN VARIABLE BS            *
  125. 5040 [143] * EICHWERTE FUER NULLPUNKT IN      *
  126. 5050 [143] * N, FUER STEIGUNG IN FA           *
  127. 5060 [143] ************************************
  128. 5070 [151]56579,[194](56579)[176] 224
  129. 5080 [151] 56577,M[172]32                   :[143] ANALOGPORT WAEHLEN
  130. 5090 [158] 53100                          :[143] TIMING NUR IN MASCH.
  131. 5100 FZ [178] (255[171][194](56580))[170](255[171][194](56581))[172]256
  132. 5110 U [178] (FZ [171] NU) [173] FA                  :[143] EICHUNG
  133. 5120 [142]
  134. 10000 [143] ************************************
  135. 10010 [143] * DRUCKMODUL                       *
  136. 10020 [143] * UEBERGABE: ANALOGPORTNUMMER IN BS*
  137. 10030 [143] ************************************
  138. 10035 NT[178]2224.400:NS[178]23.5700
  139. 10036 [151]56579,[194](56579)[176]224
  140. 10037 [151]56577,M[172]32
  141. 10040 [129]TE[178]1[164]1000
  142. 10050 [130]
  143. 10060 [141] 5000
  144. 10100 AN [178][181](((FZ[171]NT)[173]NS)[172]10[170].5)[173]10
  145. 10109 [139]AN[177][178]100[167]AN[178]99.99
  146. 10110 [142]
  147.